home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / A / ASU Library.sit / ASU Red Ryder Shell Source / WYLB < prev   
Encoding:
Text File  |  1988-04-08  |  608 b   |  41 lines  |  [TEXT/MACA]
  1. (WYLBUR)
  2. CONTAINS S$,9600
  3. IF YES JUMPTO WRONGSPEED
  4. CONTAINS S$,2400
  5. IF YES JUMPTO WRONGSPEED
  6. :PROCEED
  7. COPYINTO B$,S$
  8. CONCAT B$,-E-7-1-HALF
  9. COMM B$
  10. SCREEN ON
  11. CONTAINS L$,TOUCHTONE
  12. IF YES COPYINTO D$,ATDT 
  13. CONTAINS L$,PULSE
  14. IF YES COPYINTO D$,ATDP 
  15. CONCAT D$,N$
  16. TYPE ATH^M
  17. PAUSE
  18. TYPE ATZ^M
  19. PAUSE
  20. DIAL D$
  21. PROMPT CONNECT
  22. PAUSE 90
  23. CONTAINS S$,1200
  24. IF YES JUMPTO 1200
  25. TYPE O
  26. TYPE ^M
  27. END
  28. :1200
  29. TYPE ^M
  30. PAUSE 10
  31. TYPE ^M
  32. PAUSE 10
  33. TYPE ^M
  34. END
  35. :WRONGSPEED
  36. COPYINTO X$,WYLBUR line mode only operates at
  37. COPYINTO Y$,300 and 1200 BPS.  Your modem will
  38. COPYINTO Z$,be set to 1200 BPS.
  39. QUERY2
  40. COPYINTO S$,1200
  41. JUMPTO PROCEED